1 REM 2 REM BY J.SWEENEY 1980 3 REM 6 DIM AA(55),AB(55),AC(55) 10 PRINT"[147] 11 [153]" TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO 12 PRINT" [165] [167] 13 [153]" FNCLOSE CLOSECLOSE THEN 14 PRINT" [165] RESPIROMETER EXPERIMENT [167] 15 [153]" FN NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW THEN 16 PRINT" [165] [167] 17 [153]" FN THEN 18 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] 21 [153]"THIS PROGRAM SIMULATES THE RESPIROMETER 22 PRINT"EXPERIMENT . IN THIS EXPERIMENT THE WAY 23 [153]"IN WHICH A MAGGOT USES ITS OXYGEN SUPPLY 24 PRINT"IS INVESTIGATED . 26 [141]4000 51 AA(1)[178]0 52 AA(2)[178]3 53 AA(3)[178]4.6 54 AA(4)[178]6 55 AA(5)[178]7 56 AA(6)[178]7.5 57 AA(7)[178]7.8 58 AA(8)[178]8.0 59 AA(9)[178]8.1 100 [141]1000 150 TM[178]500 151 [141] 5000 160 [153]"ONONONONONONONONONONONONONONTHE BASIC APPARATUS CONSISTS OF A TEST 161 PRINT" TUBE WITH A HOLLOW GLASS ROD THROUGH 162 [153]" THE BUNG 170 TM=5000 171 GOSUB5000 174 PRINT"[145][145][145][145][145] THIS GLASS ROD IS GRADUATED . " 175 PRINT" THE MARKING USUALLY STARTS FROM THE " 176 PRINT" RIGHT HAND SIDE . " 177 FOR G=1TO1000 : NEXT G 179 PRINT"[163][207][163][207][163][207][163][207][163][207][163][207][163][207][163][207][163][207][163][207]" 180 PRINT" 9 8 7 6 5 4 3 2 1 0" 181 FOR G=1TO4000 : NEXT G 182 GOSUB 5500 200 GOSUB2000 201 FOR T=1TO4000 : NEXT T 210 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145] THE MAGGOT ABSORBS OXYGEN FROM " 212 PRINT" THE ATMOSPHERE ( SHOWN AS [215] ) " 214 PRINT" 215 [129] T[178]1[164]1500:[130] T 218 [141]3000 220 [129] T[178]1[164]2000:[130] T 240 [153]"ONONONONONONONONONONONONTHE MAGGOT THEN GIVES OFF CARBON DIOXIDE " 241 [153]" ( SHOWN AS * ) " 243 [129]T[178]1[164]1500:[130] T 250 [141] 3500 252 [129] T[178]1[164]2000:[130] T 255 [153]"ONONONONONONONONONON THE MAGGOT ABSORBS OXYGEN AND GIVES " 258 [153]" OFF CARBON DIOXIDE " 260 [129]T[178]1[164]2500:[130] T 261 [153]" 262 GOSUB3000 263 PRINT"[145][145][145][145][145][145][145][145][145] 264 [129]T[178]1[164]1000:[130]T 265 [141]3500 266 [129]T[178]1[164]1500:[130]T 269 [153]"ONONONONONONONONONONONON 270 PRINT" SODA LIME IS ADDED TO ABSORB " 272 PRINT" THE CARBON DIOXIDE " 275 FORT=1TO2500:NEXTT 280 PRINT" 281 [153]" *RND 282 PRINT"  [146] 283 [153]"O  WAIT 285 FORT=1TO3500:NEXT T 287 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145] THE SODA LIME ABSORBS ANY CARBON " 288 PRINT" DIOXIDE WHICH IS GIVEN OFF " 290 FOR T=1TO2500 : NEXT T 291 PRINT" 292 [141]3000 293 [153]"ONONONONONONONONON 294 FORT=1TO1000:NEXTT 295 GOSUB3500 296 PRINT"* 297 [129]T[178]1[164]1000:[130]T 298 [153]"ON " 300 [129]T[178]1[164]1000:[130]T 311 [153]"" 312 [141]3000 315 [129] T[178]1[164]1000:[130]T 317 [153]"ONONONONONONONONONON 319 GOSUB3500 360 PRINT"* 361 [129]T[178]1[164]1000:[130]T 362 [153]"ON " 400 [153]"ONONONONONONONONONONON THE END OF THE TUBE IS NOW SEALED " 405 [153]" USING A DROP OF COLOURED WATER " 408 [129]T[178]1[164]2500:[130] T 410 [153]" INT" 500 [153]"ONONONONONONONONONONON FOOD + OXYGEN -> CARBON-DIOXIDE " 502 [153]"CARBON-DIOXIDE -> ABSORBED BY SODA LIME 504 PRINT"THE COLOURED WATER MOVES ALONG THE TUBE " 510 FORT=1TO2500:NEXT T 520 PRINT" 522 [141]3000 523 [129]T[178]1[164]1000:[130]T 524 [153]"ONONONONONONONONON 526 GOSUB3500 529 IFZX=2GOTO600 530 PRINT" " 535 PRINT"[145][181] " 540 ZX=2 541 FOR T=1TO1000:NEXT T 545 GOTO522 600 PRINT"[181] " 610 PRINT" 615 [141]4000 620 [141] 7000 650 [153]"LOAD THE RATE AT WHICH MAGGOTS USE THEIR " 651 [153]" OXYGEN SUPPLY DEPENDS UPON THE " 652 [153]" TEMPERATURE OF THEIR SURROUNDINGS " 653 [153]" O" 655 [153]"BELOW -10 C THEY WILL DIE " 656 [153]" O" 657 [153]"BETWEEN -10 AND 8 C THEY ARE INACTIVE " 658 [153]" O" 659 [153]"FROM 8 -> 35 C THEY ARE ACTIVE " 660 [153]" O" 661 [153]"BETWEEN 35 AND 45 C THEY HAVE PROBLEMS" 662 [153]" O" 663 [153]"ABOVE 45 C THEY WILL DIE " 664 [153]"ONONON 665 GOSUB4000 670 PRINT"[147] 675 [153]" (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)" 676 [153]" FN O THEN" 677 [153]" FNTHE IDEAL RANGE IS 8 TO 35 C THEN" 678 [153]" FN THEN" 679 [153]" (null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR" 680 [153]" 681 PRINT"TYPE IN A VALUE FOR THE TEMPERATURE" 682 PRINT" 685 [133] T 686 T [178] [181](T) 700 [139] T[179][171]273 [167] [141]6200 705 [139] T[179][171]273 [137]675 710 [139] T[179][171]10 [167] [141] 6000 711 [139] T[179][171]10 [137] 675 715 [139] T[179]8 [167] [141] 6100 716 [139] T[179]8 [137] 675 720 [139] T[179]36 [167] [141] 6500 721 [139] T[179]36 [137] 6565 725 [139] T[179]45 [167] [141] 6700 726 [139] T[179]45 [137] 675 730 [139] T[177]45 [167] [141] 6900 731 [139] T[177]45 [137] 675 800 [153]"LOAD 801 AC(1)=2.61 802 AC(2)=5.41 803 AC(3)=8.42 804 AC(4)=10.1 805 AC(5)=10.8 806 AC(6)=11.1 807 AC(7)=11.3 808 AC(8)=11.4 809 AC(9)=11.5 810 AC(10)=11.6 811 AC(11)=11.6 812 AC(12)=11.5 813 AC(13)=11.3 814 AC(14)=11.1 820 PRINT" THE EFFECT OF TEMPERATURE UPON " 821 PRINT" RESPIRATION CAN BE EXAMINED ANOTHER " 822 PRINT" WAY . THIS CONSISTS OF EXAMINING THE " 823 PRINT"AMOUNT OF OXYGEN USED IN 20 SECONDS AT " 824 PRINT" DIFFERENT TEMPERATURES " 826 GOSUB 4000 827 PRINT"[147][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]" 828 PRINT" [161]" 829 PRINT" [161]" 830 PRINT" TEMP VOLUME [161] TEMP VOLUME " 831 PRINT" [162][162][162][162] [162][162][162][162][162][162] [161] [162][162][162][162] [162][162][162][162][162][162] " 832 PRINT" [161]" 833 SD=10 834 FOR G=1TO7 836 PRINT" " SD " " AC(G)" [161] " SD+14" " AC(G+7) 837 PRINT" [161]" 838 SD=SD+2 839 NEXT G 840 PRINT" [161]" 841 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]" 842 PRINT"[145][145][145][145] 845 [141]4000 900 [153]"LOAD 901 PRINT"[207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]" 902 PRINT"[165] [160][167]" 903 PRINT"[165]TO REPEAT THE WHOLE PROGRAM PRESS R [167]" 904 PRINT"[165] [167]" 905 PRINT"[165] [167]" 906 PRINT"[165] TO STOP THE PROGRAM PRESS S [167]" 908 PRINT"[165] [167]" 909 PRINT"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186] " 910 PRINT" 920 [129] H[178]1[164]100000000 922 N[178][194](151) 923 [139] N[178]55[137]10 924 [139] N[178]40[137]950 925 [130] H 950 [153]"LOAD 951 PRINT" 952 [153]" (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null) 953 PRINT" [165]*********************** [167] 954 [153]" FN THEN 955 PRINT" [165]THE PROGRAM IS FINISHED [167] 956 [153]" FN THEN 957 PRINT" [165]*********************** [167] 958 [153]" (null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR 959 PRINT" 960 [153]" 999 END 1000 PRINT"[147] 1004 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO 1005 PRINT"[165] [166][166][166] 1006 [153]"FN SPC(SPC(SPC(TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO 1007 PRINT"[165] 1008 [153]"FN SPC(SPC(SPC(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 1009 PRINT"[165] [166][166][166] 1010 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 1015 PRINT" 1016 [153]"  WAIT WAIT 1017 PRINT"[145][145][145][145][145][145][145][145] 1020 [142] 2000 [153]"FN (null)(null)(null)(null)O" 2001 [153]"ONONFN " 2100 [142] 3000 [153]"ONONONFN (null) 3005 FOR T=1TO1000: NEXT T 3010 PRINT"[145][165] " 3015 PRINT"[165] [215]" 3020 FOR T=1TO1000: NEXT T 3025 PRINT"[145][165] " 3030 PRINT"[165] [215]" 3035 FOR T=1TO1000: NEXT T 3040 PRINT"[145][165] [215]" 3045 PRINT"[145][165] " 3100 RETURN 3500 PRINT"[165] *" 3505 FOR T=1TO1000:NEXT T 3510 PRINT"[145][165] " 3515 PRINT"[145][145][165] *" 3517 FOR T=1TO1000:NEXT T 3519 PRINT"[145][165] " 3520 PRINT"[145][145][165] *" 3525 FOR T=1TO1000:NEXT T 3527 PRINT"[145][165] " 3550 RETURN 4000 PRINT"PRESS RETURN[146] " 4010 GET D$ : IF D$=""THEN4010 4015 IF ASC(D$)<>13THEN4010 4025 RETURN 5000 FOR T=1TOTM : NEXT T 5001 RETURN 5500 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145] A MAGGOT IS PLACED INSIDE " 5502 PRINT" THE TEST TUBE " 5503 PRINT" " 5504 FOR T=1TO1000:NEXT T 5600 RETURN 6000 PRINT"[147] 6001 [153]"ERROR ! TOO COLD - MAGGOTS DEAD" 6002 [153]"NEWNEWNEWNEWNEW " 6005 [142] 6100 [153]"LOAD 6101 PRINT"ERROR ! TOO COLD - MAGGOTS INACTIVE" 6102 PRINT"[162][162][162][162][162]  6105 [142] 6200 [153]"LOAD O" 6201 [153]"ERROR ! YOU CANNOT GET BELOW -273 C" 6202 [153]"NEWNEWNEWNEWNEW " 6205 [142] 6215 [142] 6500 MT[178]20[170](4[172](20[171][182](T[171]27.6))) 6505 [129] G[178]1[164]9 6510 AB(G)[178][181](AA(G)[172]MT) 6515 AB(G)[178]AB(G)[173]100 6520 [130] G 6530 [153]"LOADTEMP = " T 6535 [153]"ON TIME VOLUME " 6540 [153]" NEWNEWNEWNEW NEWNEWNEWNEWNEWNEW " 6542 [153]" 0 0" 6545 [129] S[178]2[164]9 6546 K[178]10[172](S[171]1) 6549 [153] 6550 [153]" "K" "AB(S) 6555 [130]S 6556 [153]"ONONONON 6560 GOSUB4000 6565 PRINT"[147] 6570 [153]"(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null) 6571 PRINT"[165] [167]" 6572 PRINT"[165]TO REPEAT FOR NEW TEMPERATURE PRESS R[167]" 6573 PRINT"[165] [167]" 6574 PRINT"[165] [167]" 6575 PRINT"[165] TO CONTINUE WITH THE PROGRAM PRESS C[167]" 6576 PRINT"[165] [167] 6577 [153]"(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR" 6580 [129] H[178]1[164]1000000000 6581 F[178][194](151) 6582 [139]F[178]55 [137] 650 6583 [139]F[178]31 [137] 800 6585 [130] H 6700 [153]"LOAD 6701 PRINT"ERROR ! TOO HOT - MAGGOTS STRUGGLING" 6702 PRINT"[162][162][162][162][162]  6705 [142] 6900 [153]"LOAD 6901 PRINT"ERROR ! TOO HOT - MAGGOTS DEAD " 6902 PRINT"[162][162][162][162][162] 6905 [142] 7000 [153]"LOAD 7010 PRINT 7011 PRINT" AN ENLARGED PICTURE OF THE GRADUATED " 7012 PRINT" TUBE IS SHOWN BELOW " 7013 PRINT 7016 PRINT"[164] 7017 [153]"SPC( 7018 PRINT"[166] 7019 [153]"SPC(TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO 7020 PRINT" 7021 [153]"SPC(TAB((null)TAB(TAB(TAB((null)TAB(TAB(TAB((null)TAB(TAB(TAB((null)TAB(TAB(TAB((null)TAB(TAB(TAB((null)TAB(TAB(TAB((null)TAB(TAB(TAB((null)TAB(TAB(TAB((null)TAB(TAB(TAB((null)" 7022 [153]"SPC( 9 8 7 6 5 4 3 2 1 0 7023 PRINT"[166] 7024 [153]"TAB( 7025 PRINT 7026 PRINT 7027 PRINT 7028 PRINT"  WAIT [146]" 7029 PRINT"[145][145][145] 7030 [129] T[178]1[164]3500:[130] T 7044 [153]"ONONONONONONONONONONONONONONONONONONONONON THE COMPUTER WILL NOW SIMULATE THE " 7045 [153]" RESPIROMETER EXPERIMENT " 7046 [153]" TAKE READINGS FOR THE VOLUME AT TEN " 7048 [153]" SECOND INTERVALS AS INSTRUCTED " 7050 [129]T[178]1[164]3500:[130] T 7060 [153]" INT" 7061 [129] T[178]1[164]1000 :[130] T 7065 [153]"TIME = 0 SECONDS  TAKE VOLUME READING WAIT 7070 FOR T=1 TO 5000 : NEXT T 7072 PRINT"[145][145][145][145][145][145] [181] " 7075 PRINT"TIME = 10 SECONDS  TAKE VOLUME READING [146] 7080 [129] T[178]1[164] 5000 : [130] T 7082 [153]"ONONONONONON INT " 7084 [153]"TIME = 20 SECONDS  TAKE VOLUME READING WAIT 7090 FOR T=1TO5000 : NEXT T 7092 PRINT"[145][145][145][145][145][145] [181] " 7095 PRINT"TIME = 30 SECONDS  TAKE VOLUME READING [146] 7100 [129] T[178]1[164]5000 : [130] T 7105 [153]"ONONONONONON INT " 7110 [153]"TIME = 40 SECONDS  TAKE VOLUME READING WAIT 7115 FOR T=1TO5000 : NEXT T 7120 PRINT"[145][145][145][145][145][145] [181] " 7125 PRINT"TIME = 50 SECONDS" 7130 FOR T=1TO5000 : NEXT T 7135 PRINT"[145][145][145][145][145][145] [181] " 7140 PRINT"TIME = 60" 7145 FOR T=1 TO 5000 : NEXT T 7150 PRINT"[145][145][145][145][145][145] [181] " 7155 PRINT"TIME = 70" 7160 FOR T=1 TO 5000 : NEXT T 7165 PRINT"[145][145][145][145][145][145] [181] " 7170 PRINT"TIME = 80" 7180 FOR T=1TO 5000 : NEXT T 7200 PRINT"[145] TO REPEAT THE EXPERIMENT PRESS R " 7202 PRINT" TO CONTINUE WITH THE PROGRAM PRESS C " 7206 PRINT" " 7210 FOR G=1 TO 10000000 7215 V=PEEK (151) 7216 IF V=31 GOTO 7250 7217 IF V=55 GOTO 7000 7220 NEXT G 7250 RETURN